home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / sound things (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  258 lines
  1. 0 rem sound things (f. vanzeist 3/85) :
  2. 1 :
  3. 2 rem 28 statements, 4 functions
  4. 3 :
  5. 4 rem keyword characters: 126
  6. 5 :
  7. 6 rem keywords #085 to #116           :
  8. 7 :
  9. 8 rem==================================
  10. 9 :
  11. 123 .asc "clesi[196]fre[209]puwi[196]fifre[209]"
  12. 124 .asc "adpu[204]adsa[215]adtr[201]"
  13. 125 .asc "nowa[214]no[201]pu[204]"
  14. 126 .asc "sa[215]tr[201]tes[212]"
  15. 127 .asc "rin[199]syn[195]gat[197]"
  16. 128 .asc "at[212]de[195]su[211]"
  17. 129 .asc "re[204]reso[206]vo[204]fil[212]"
  18. 130 .asc "trdof[198]trdo[206]h[208]"
  19. 131 .asc "b[208]l[208]"
  20. 617 .asc "pot[216]pot[217]"
  21. 618 .asc "osc": .byte $b3 
  22. 619 .asc "env": .byte $b3
  23. 1123 .word clesi-1,frq-1,puwi-1,fifre-1
  24. 1124 .word adwav-1,adwv1-1,adwv2-1
  25. 1125 .word nuwv4-1,nuwav-1,nuwv1-1
  26. 1126 .word nuwv2-1,nuwv3-1,wavbit-1
  27. 1127 .word wvbit1-1,wvbit2-1,wvbit3-1
  28. 1128 .word asset-1,drset-1,ast1-1
  29. 1129 .word drt1-1,rvset-1,rvt1-1,filt-1
  30. 1130 .word third-1,thrd1-1,flset-1
  31. 1131 .word flt1-1,flt2-1
  32. 1617 .word pots-1,pts1-1
  33. 1618 .word pts2-1
  34. 1619 .word pts3-1
  35. 6746 getvoi jsr $b79e  
  36. 6748 cpx #8            
  37. 6750 bcs illqty        
  38. 6752 stx voictr
  39. 6754 rts
  40. 6756 ;
  41. 6758 getwrd jsr $aefd  
  42. 6760 jsr $ad8a      
  43. 6762 jsr $b7f7      
  44. 6764 lda #<direct   
  45. 6766 sta sbyt3+1    
  46. 6768 lda #>direct   
  47. 6770 sta sbyt3+2    
  48. 6772 rts
  49. 6774 ;
  50. 6776 lonyb jsr $aefd 
  51. 6778 lnyb1 jsr $b79e 
  52. 6780 cpx #$10        
  53. 6782 bcs illqty      
  54. 6784 rts
  55. 6786 ;
  56. 6788 hinyb jsr $aefd 
  57. 6790 hnyb1 jsr lnyb1 
  58. 6792 txa
  59. 6794 asl             
  60. 6796 asl             
  61. 6798 asl
  62. 6800 asl
  63. 6802 tax
  64. 6804 rts
  65. 6806 ;
  66. 6808 getbit jsr $aefd 
  67. 6810 gbit1 jsr $b79e  
  68. 6812 cpx #0           
  69. 6814 bne gbit2        
  70. 6816 stx newval       
  71. 6818 gbit2 cpx #2
  72. 6820 bcs illqty
  73. 6822 rts
  74. 6824 ;
  75. 6826 direct lda $14 
  76. 6828 sta imsid,y    
  77. 6830 sta $d400,y    
  78. 6832 lda $15        
  79. 6834 sta imsid+1,y  
  80. 6836 sta $d401,y    
  81. 6838 rts
  82. 6840 ;
  83. 6842 bitnyb lda imsid,y 
  84. 6844 and prtect         
  85. 6846 ora newval         
  86. 6848 sta imsid,y        
  87. 6850 sta $d400,y        
  88. 6852 rts                
  89. 6854 ;
  90. 6856 illqty jmp $b248 
  91. 6858 ;
  92. 6860 sidbyt lda #<bitnyb 
  93. 6862 sta sbyt3+1   
  94. 6864 lda #>bitnyb  
  95. 6866 sta sbyt3+2   
  96. 6868 sbyt1 sty voindx 
  97. 6870 ldx #3        
  98. 6872 sbyt2 lsr voictr 
  99. 6874 bcc sbyt4     
  100. 6876 ldy voindx    
  101. 6878 sbyt3 jsr $0000 
  102. 6880 sbyt4 lda voindx
  103. 6882 clc            
  104. 6884 adc #7         
  105. 6886 sta voindx     
  106. 6888 dex
  107. 6890 bne sbyt2      
  108. 6892 rts
  109. 6894 ;
  110. 6896 eormsk txa     
  111. 6898 eor #$ff       
  112. 6900 emsk1 stx newval
  113. 6902 sta prtect
  114. 6904 rts
  115. 6906 ;
  116. 6908 clesi ldy #$19 
  117. 6910 lda #0         
  118. 6912 csid1 sta imsid,y
  119. 6914 sta $d400,y
  120. 6916 dey
  121. 6918 bpl csid1
  122. 6920 rts
  123. 6922 ;
  124. 6924 frq jsr getvoi 
  125. 6926 jsr getwrd     
  126. 6928 ldy #0         
  127. 6930 jmp sbyt1      
  128. 6932 ;
  129. 6934 puwi jsr getvoi 
  130. 6936 jsr getwrd      
  131. 6938 lda $15         
  132. 6940 cmp #$10        
  133. 6942 bcs illqty
  134. 6944 ldy #2         
  135. 6946 jmp sbyt1      
  136. 6948 ;
  137. 6950 fifre jsr $ad8a 
  138. 6952 jsr $b7f7      
  139. 6954 ldx #0
  140. 6956 ffre1 asl $14  
  141. 6958 rol $15        
  142. 6960 bcs illqty     
  143. 6962 inx
  144. 6964 cpx #5
  145. 6966 bne ffre1      
  146. 6968 ffre2 lsr $14  
  147. 6970 dex            
  148. 6972 bne ffre2      
  149. 6974 ldy #$15       
  150. 6976 jmp direct     
  151. 6978 ;
  152. 6980 adwav ldx #$40 
  153. 6982 .byte $2c
  154. 6984 adwv1 ldx #$20 
  155. 6986 .byte $2c
  156. 6988 adwv2 ldx #$10 
  157. 6990 lda #$7f       
  158. 6992 bne (NULL)wave     
  159. 6994 ;
  160. 6996 nuwav ldx #$80 
  161. 6998 .byte $2c
  162. 7000 nuwv1 ldx #$40 
  163. 7002 .byte $2c
  164. 7004 nuwv2 ldx #$20 
  165. 7006 .byte $2c
  166. 7008 nuwv3 ldx #$10 
  167. 7010 .byte $2c
  168. 7012 nuwv4 ldx #0   
  169. 7014 lda #$0f
  170. 7016 ;
  171. 7018 (NULL)wave jsr emsk1 
  172. 7020 jsr getvoi       
  173. 7022 ldy #4           
  174. 7024 jmp sidbyt       
  175. 7026 ;
  176. 7028 wavbit ldx #8    
  177. 7030 .byte $2c
  178. 7032 wvbit1 ldx #4    
  179. 7034 .byte $2c
  180. 7036 wvbit2 ldx #2    
  181. 7038 .byte $2c
  182. 7040 wvbit3 ldx #1    
  183. 7042 jsr eormsk
  184. 7044 jsr getvoi     
  185. 7046 jsr getbit     
  186. 7048 ldy #4
  187. 7050 jmp sidbyt     
  188. 7052 ;
  189. 7054 asset ldy #5   
  190. 7056 .byte $2c
  191. 7058 ast1 ldy #6    
  192. 7060 sty voindx     
  193. 7062 jsr getvoi     
  194. 7064 jsr hinyb      
  195. 7066 lda #$0f       
  196. 7068 bne drt2       
  197. 7070 ;
  198. 7072 drset ldy #5   
  199. 7074 .byte $2c
  200. 7076 drt1 ldy #6    
  201. 7078 sty voindx     
  202. 7080 jsr getvoi     
  203. 7082 jsr lonyb      
  204. 7084 lda #$f0       
  205. 7086 drt2 jsr emsk1
  206. 7088 ldy voindx
  207. 7090 jmp sidbyt     
  208. 7092 ;
  209. 7094 rvset jsr hnyb1 
  210. 7096 ldy #$17       
  211. 7098 lda #$0f       
  212. 7100 bne rvt2
  213. 7102 rvt1 jsr lnyb1 
  214. 7104 ldy #$18       
  215. 7106 lda #$f0       
  216. 7108 rvt2 jsr emsk1
  217. 7110 jmp bitnyb     
  218. 7112 ;
  219. 7114 filt jsr lnyb1 
  220. 7116 jsr eormsk
  221. 7118 jsr getbit     
  222. 7120 ldy #$17       
  223. 7122 jmp bitnyb     
  224. 7124 ;
  225. 7126 third ldx #$80 
  226. 7128 .byte $2c
  227. 7130 thrd1 ldx #0   
  228. 7132 lda #$7f       
  229. 7134 ldy #$18       
  230. 7136 bne rvt2
  231. 7138 ;
  232. 7140 flset ldx #$40 
  233. 7142 .byte $2c
  234. 7144 flt1 ldx #$20  
  235. 7146 .byte $2c
  236. 7148 flt2 ldx #$10  
  237. 7150 jsr eormsk
  238. 7152 jsr gbit1      
  239. 7154 ldy #$18       
  240. 7156 jmp bitnyb     
  241. 7158 ;
  242. 7160 pots ldx #0    
  243. 7162 .byte $2c
  244. 7164 pts1 ldx #1    
  245. 7166 .byte $2c
  246. 7168 pts2 ldx #2    
  247. 7170 .byte $2c
  248. 7172 pts3 ldx #3    
  249. 7174 ldy $d419,x    
  250. 7176 jmp $b3a2      
  251. 7178 ;
  252. 7180 imsid  *= *+$19
  253. 7182 newval *= *+1
  254. 7184 prtect *= *+1
  255. 7186 voindx *= *+1
  256. 7188 voictr *= *+1
  257. 7190 ;
  258.